home *** CD-ROM | disk | FTP | other *** search
/ PC Users 1998 March / Pc Users extra 6.iso / pshare95 / prog / formula1 / vcform1.z / Group.cls < prev    next >
Encoding:
Visual Basic class definition  |  1997-09-08  |  1.2 KB  |  47 lines
  1. VERSION 1.0 CLASS
  2. BEGIN
  3.   MultiUse = -1  'True
  4. END
  5. Attribute VB_Name = "Group"
  6. Attribute VB_GlobalNameSpace = False
  7. Attribute VB_Creatable = True
  8. Attribute VB_PredeclaredId = False
  9. Attribute VB_Exposed = False
  10. Attribute VB_Ext_KEY = "SavedWithClassBuilder" ,"Yes"
  11. Attribute VB_Ext_KEY = "Top_Level" ,"No"
  12. Option Explicit
  13.  
  14. Public Key As String
  15.  
  16. Private mvarName As String 'local copy
  17. Private mvarTableName As String 'local copy
  18. Public Property Let TableName(ByVal vData As String)
  19. 'used when assigning a value to the property, on the left side of an assignment.
  20. 'Syntax: X.TableName = 5
  21.     mvarTableName = vData
  22. End Property
  23.  
  24.  
  25. Public Property Get TableName() As String
  26. 'used when retrieving value of a property, on the right side of an assignment.
  27. 'Syntax: Debug.Print X.TableName
  28.     TableName = mvarTableName
  29. End Property
  30.  
  31.  
  32. Public Property Let Name(ByVal vData As String)
  33. 'used when assigning a value to the property, on the left side of an assignment.
  34. 'Syntax: X.Name = 5
  35.     mvarName = vData
  36. End Property
  37.  
  38.  
  39. Public Property Get Name() As String
  40. 'used when retrieving value of a property, on the right side of an assignment.
  41. 'Syntax: Debug.Print X.Name
  42.     Name = mvarName
  43. End Property
  44.  
  45.  
  46.  
  47.